home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / amiutils / e_h / fractualuniverse / install_fu < prev    next >
Text File  |  1995-12-30  |  3KB  |  114 lines
  1. ; FractalUniverse -------------------------------------------------------------------------------------------
  2. (MESSAGE 
  3.     "\n\nWillkommen zur Installation von FractalUniverse !\n\n"
  4. )
  5.  
  6. (SET @default-dest
  7.     (ASKDIR
  8.         (PROMPT "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen FU wird angelegt !")
  9.         (HELP "Hier k÷nnen Sie auswΣhlen, wohin Sie das Programm installeren m÷chten")
  10.         (DEFAULT @default-dest)
  11.     )
  12. )
  13. (MESSAGE "\n\nBitte stellen Sie sicher, da▀ auf der Zielpartition\n 0.5 Mb-Speicher frei ist !")
  14.  
  15. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  16. (SET @default-dest (TACKON @default-dest "FU"))
  17. (SET fu-dest @default-dest)
  18. (IF (= (EXISTS fu-dest) 0)
  19.     (MAKEDIR fu-dest (INFOS))
  20. )
  21.  
  22. ; Fonts kopieren --------------------------------------------------------------------------------------------
  23. (COMPLETE 8)
  24. (COPYFILES
  25.     (SOURCE "Fonts/")
  26.     (DEST "FONTS:")
  27.     (ALL)
  28. )
  29.  
  30. ; Farben kopieren -------------------------------------------------------------------------------------------
  31. (COMPLETE 10)
  32. (SET fusub-dest (TACKON fu-dest "Colors"))
  33. (COPYFILES
  34.     (SOURCE "colors/")
  35.     (DEST fusub-dest)
  36.     (ALL)
  37.     (INFOS)
  38. )
  39.  
  40. ; Formeln kopieren ------------------------------------------------------------------------------------------
  41. (COMPLETE 25)
  42. (SET fusub-dest (TACKON fu-dest "Formulas"))
  43. (COPYFILES
  44.     (SOURCE "Formulas/")
  45.     (DEST fusub-dest)
  46.     (ALL)
  47.     (INFOS)
  48. )
  49.  
  50. ; Areas kopieren --------------------------------------------------------------------------------------------
  51. (COMPLETE 40)
  52. (SET fusub-dest (TACKON fu-dest "Areas"))
  53. (COPYFILES
  54.     (SOURCE "Areas/")
  55.     (DEST fusub-dest)
  56.     (ALL)
  57.     (INFOS)
  58. )
  59.  
  60. ; ARexx-Scripte ---------------------------------------------------------------------------------------------
  61. (COMPLETE 55)
  62. (SET fusub-dest (TACKON fu-dest "Rexx"))
  63. (COPYFILES
  64.     (SOURCE "Rexx/")
  65.     (DEST fusub-dest)
  66.     (ALL)
  67.     (INFOS)
  68. )
  69.  
  70. ; Versionsauswahl -------------------------------------------------------------------------------------------
  71. (COMPLETE 70)
  72. (SET pver
  73.     (ASKCHOICE
  74.         (PROMPT "Bitte wΣhlen Sie die zu installierende Programmversion aus !")
  75.         (HELP "Die Version ist von Ihrer verwendeten Computerhardware abhΣngig !")
  76.         (CHOICES
  77.             "68000"
  78.             "68030-881"
  79. ;            "68040-(881)"
  80.         )
  81.         (DEFAULT 0)
  82.     )
  83. )
  84. (IF (= pver 0)
  85.     (COPYFILES
  86.         (SOURCE "fu/fu.68000")
  87.         (DEST fu-dest)
  88.         (NEWNAME "FractalUniverse")
  89.     )
  90. )
  91. (IF (= pver 1)
  92.     (COPYFILES
  93.         (SOURCE "fu/fu.68030-881")
  94.         (DEST fu-dest)
  95.         (NEWNAME "FractalUniverse")
  96.     )
  97. )
  98. ;(IF (= pver 2)
  99. ;    (COPYFILES
  100. ;        (SOURCE "fu/fu.68040-881")
  101. ;        (DEST fu-dest)
  102. ;        (NEWNAME "FractalUniverse")
  103. ;    )
  104. ;)
  105. (COPYFILES
  106.     (SOURCE "FU/FractalUniverse.info")
  107.     (DEST fu-dest)
  108. )
  109.  
  110. ; Fertig ----------------------------------------------------------------------------------------------------
  111. (EXIT
  112.     "\n\nFU konnte erfolgreich installiert werden.\n"
  113.     "Bitte schlagen Sie im Handbuch nach, um zu erfahren wie das Programm bedient und gestartet wird.\n"
  114. )